perm filename TEXFIL.DIF[TEX,DEK] blob sn#500223 filedate 1980-03-28 generic text, type T, neo UTF8
  1) TEXFIL.SAI[TEX,DEK] and 2) TEXFIL.SAV[TEX,DEK]	3-28-80 21:48	pages 1,1

**** File 1) TEXFIL.SAI[TEX,DEK]/1P/3L
1)	comment This page contains the most operating-system dependent aspects
**** File 2) TEXFIL.SAV[TEX,DEK]/1P/2L
2)	comment edited by Guibas on December 12, 1979
2)		allow user to accept or reject the first line of a file;
2)	comment edited by Wyatt on Aug. 16, 1978
2)		removed explicit directory name from call to declareofil;
2)	comment edited by Wyatt on Aug. 15, 1978
2)		added "saf" to arrays;
2)	comment edited by Guibas on Aug. 7, 1978;
2)	comment This page contains the most operating-system dependent aspects
***************


**** File 1) TEXFIL.SAI[TEX,DEK]/1P/88L
1)	internal integer procedure opendigit(integer d) # Do this after "\open d =";
1)	begin integer chan; string s;
1)	scanfilename;
1)	if fname[2]=0 then fname[2]←".TEX" # default extension;
1)	s←fname[0]&fname[1]&fname[2];
1)	open(chan←getchan,"DSK",0,0,2,0,0,eof);
1)	loop    begin enter(chan,s,eof);
1)	        if eof then
1)	                begin print(nextline,"I can't write on file ",s,
1)	                        nextline,"Output file for \open "&d&" = ");
1)	                s←inchwl;
1)	                end
1)	        else done
1)	        end;
1)	return(chan);
1)	end;
1)	internal procedure definefont(integer f) # Do this after seeing "=" of font def;
**** File 2) TEXFIL.SAV[TEX,DEK]/1P/95L
2)	internal procedure definefont(integer f) # Do this after seeing "=" of font def;
***************